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BBBBBBBBBBBB 
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BBB 
BBB 
BBB 
BBB 
BBB 
BBB 
000 888888888888 
000 B8BBBBB8B8BB 
000 B8888BB8B8BBB 
BBB 
000 888 
888 
BBB 
BBB 
BBB 
BBBBBBBBBBBB 
BBBBBBBBBBBB 
BBBBBBBBBBBB 


000000000 
00C000000 
000000000 
000000000 
000000000 
000000000 
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**F ILE**1D**ACCOUNTNG 


AAAAAA cccccccc ccccccce 000000 UU UU NN NN TTTTTTTTTT NN NN GGGGGGGG 
AAAAAA ccccccce ccccccce 000000 UU UU NN NN TTTTTTTTTT NN NN GGGGGGGG 
Aa AA CC cc 00 00 UU UU NN NN TT NN NN GG 
Aa AA CC cc 00 0O UU UU NN NN TT NN NN GG 
val AA CC cc 00 00 UU UU NNNN NN TT NNNN NN GG 
aS AA CC cc 00 00 UU UU NNNN NN TT NNNN NN GG 
Ab AA CC cc 00 0O UU UU NN NN NN TT NN NN NN GG 
AA AA CC cc 00 00 UU UU NN NN NN TT NN NN NN GG 
AAAAAAAAAA CC cc 00 00 UU UU NN NNNN TT NN NNNN GG GGGGGG 
AAAAAAAAAA CC cc 00 0O UU UU NN NNNN TT NN NNNN GG 666666 
AA AA CC cc 00 00 UU UU NN NN TT NN NN GG GG cece 
Ab AA CC cc 00 00 UU UU NN NN TT NN NN GG GG cece 
Aa Ab cccccccc ccccccce 000000 UUUUUUUUUU NN NN TT NN NN GGGGGG cece 
Ba AA ccccccce cccccccc 000000 UUUUUUUUUU NNN NN TT NN NN GGGGGG coos 
LL III] SSSSSSSS 
LL HII1II SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
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3 1 001 MODULE ACCOUNTNG(ZTITL co ntin manager’ 

F é 008 IDENT = *"wOecooG. 2 "2789 
3 00 d= 
3 4 004 BEGIN 
RE 0006 | 
: ? 0007 \ i weeeeeeeeeeeeeeeeeeeeeeeeneeeeeereneeereeereteeeeeeeeeneeeneeeeeeereeeeenee 
3 '® “ | 
; S 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1 Bota : :* ALL RIGHTS RESERVED. ® 
; H * 
H ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt * 
: 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
$ 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 + Bats : * TRANSFERRED. * 
$ :@ ® 
; $y 0020 1 !* He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * | 
: 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $$ 88 ¢ : CORPORATION. 
3 ts 
; Si 00246 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 26 0026 1 !* * | 
>; ef 0037 1 ie * | 
3 28 0028 1 Nee e eae eee eee eee A AAA AAA AAA AA AAA A RATATAT AAA 
3 9 0029 1! | 
if Bt. 
; 32 003¢ 1 i FACILITY 
3 a iF ' Job controller. 
2 0035 1 | ABSTRACT: 
; $$ Oos : : This module contains the accounting management routines. | 
; 38 0038 1 | ENVIRONMENT: 
: 9 0039 1: VAX/VMS user and kernel mode. 
; a oe tt | 
; 42 Qo4g | | AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 | 
; 44 0044 | ' MODIFIED BY: | 
: 646 0046 1 | V03-005 MHB0140 Mark Bramhall, 20-Apr-1984 | 
s 67 0047 1! Change account name handling, especially the determination 
: re snk : logic for generating SYSINI “and LOGFAIL records. 
: 50 0050 1: V03-004 MLJ0114 Martin L. Jack, 23-Jun-1983 4:48 
; 3 Boe, ' Changes for job contrattae baselevel. 
: 2g 6088 1! v03-003 MLJ0113 Martin L. Jack, 26-May-1983 21:05 
3 30 bee ! Changes for job controller baselevel. 
; 56 0056 1 i v03-002 mL JO112 Martin L. Jack, 29-Apr-1983 2:48 | 
; oO 0057 1! Changes for job controller basetevel. 
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a a 
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1! 
H 33 1! “yos-001 pada rtin L. Jack, 14-Apr-1983 12:45 
: ! } Changes for job oat kB baselevel. 
1 ' 


lee 


sssopre Accounting manager $585 -1984 $3: $8: $2 AX-11 Bliss-32 V4.0 


14-Sep On 1984 6: ‘DBCTL SRC JAC COUNTNG. y 2:1 
: 64 3 1 REQUIRE 'SRC$:JOBCTLDEF’; 

; 65 104 1 

; «6 1105 1 

; 6 11 6 1 LITERAL 

; «668 11 1 ACCT_ACM_REG= g. 

; 669 1108 1 ACCT“ACR-REG= 7, 

: 720 1 1 ACCT“APK"REG= 8. 

oan 1110 1 ACCT“SJH-REG= 9 

ey. 111 1 ACCT“SMQ"REG= 11; 

rie? 1118 1 

; 1113 1 

ae. 1114 1 LINKAGE 

: 7% 1115 1 L_WRITE_ACCOUNTING_FILE= CALL: GLOBAL ( 

. 1116 1 ACR = ACCT_ACR_REG), 
; 78 17 «1 

3 1118 1 L_IDENT_PACKET= CALL: GLOBAL ( 

; 80 1119 1 ACM = ACCT_ACM_REG, 
> (BI 1120 1 ACR = ACCT-ACR-REG, 
a © 21 1 SJH = ACCT~SJH-REG 

: 8 11 g 1 SMQ = ACCT~SMQ-REG), 
;  B4 1123 1 

> 85 1124 1 L_RESOURCE_PACKET= CALL: GLOBAL ¢ 

; 86 1125 1 ACM = ACCT_ACM_REG, 
; «87 1126 1 ACR = ACCT-ACR-REG); 
; 88 1127 1 

: 89 1128 1 

; 90 1129 1 FORWARD ROUTINE 

: 91 1130 1 WRITE ACCOUNTING FILE: L_WRITE_ACCOUNTING_FILE NOVALUE, 
> 92 1131 1 OPEN_ACCOUNTING FILE: NOV AL UE> 

: 93 113¢ 1 CLOSE "ACCOUNTING FILE: NOVALUE , 

: 9% 1133 (1 IDENT PACK KET L_ IDENT PACKET NOVALUE, 

; 95 1134 1 RESOURCE CKET: L-RESOURCE_PACKET NOVALUE, 
: 9 1135 1 WRITE “OSER. -ACCOUNT ING RECORD: NOVALUE 

: 97 1198 1 WRITE_FILE-LINK_RECORD: NOVALUE, 

> 98 1137 1 WRITE-ACCOONTING RECORD: NOVALUE ; 

; 299 1138 1 WRITE_PRINT RECO ORD: NOVALUE, 

; 100 1139 1 WRITE-~PROCESS RECORD: NOVALUE , 

: 101 1140 1 PROCESS_ACCOUNRTING: NOVALUE ; 

; 192 1141 1 

: 10 1148 1 

+ 104 1143 1 EXTERNAL ROUTINE 

: 105 1144 1 F IND_PROCESS_DATA: L_OUTPUT_3, 

: 106 1145 1 LOCK_QUEUE_FILE: NOVALUE, 

+ 107 1146 1 READ-RECORD, 

> 108 1147 1 SIGNAL_FILE ERROR: NOVALUE , 

: 109 1148 1 UNLOCK~ QUEUE _F ILE: NOVALUE; 

> 110 1149 1 

: 111 1150 1 

: 118 1151 1 EXTERNAL 

: 113 1138 EXESGL_ACMFLAGS: BBLOCK ADDRESSING_MODE (GENERAL); 
: 115 1184 1 

: 116 1155 1 BUILTIN 

+ 11 1136 1 LOCC 

+ 118 1157 1 vc, 

> 119 1138 1 SKPC 

: 120 1159 1 TESTBITCC, 


voe000 


; 121 
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1160 1 TESTBITSC; 
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ROUTINE WRITE_ACCOUNTING_FILE: L_WRITE_ACCOUNTING_FILE NOVALUE= 
+4 


' 
FUNCTIONAL DESCRIPTION: 
This routine writes the accounting file. 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
ACR - Pointer to accounting record. 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
: Accounting record written. 
le 


EGIN 
XTERNAL REGISTER 
ACR = ACCT_ACR_REG: REF BBLOCK; ! Pointer to accounting record 


OO OO 09 09 09 09.00 09 09 09 09 09 INI NII NOP AAA AAAO 


QO NF WIM ODD VE AR WIV PO DO VR MRA ODES SRM > GOS MOU UO One dome 


! The following loop is executed up to MAXFILERR times or until the accountin 
! record is successfully written, provvens that an accounting file is open an 
the record type is selected by the accounting control flags. 


DECR I FROM JBCSK_MAXFILERR TO 1 DO 
BEGIN 


LOCAL 
FAB REF BBLOCK; ! Pointer to FAB 


FOP SP LLIN IL ISIN ES OS & i at at pt oF 
ROR ROAR at a a a at st a ss st ss ss ts 


an 
VSVSARANASSSISS WN O OODNAUVE WRI O ODNOAUES WN OD DNAOUE WN" OVOONOUS Ww 


OOoCoUOOOoOoNO 


' Pick up a pointer to the current accounting FAB. If the file is closed, 
return. 


FAB = .ACCOUNTING_FABS(O); 
UF gf ABCFABSU_IFIJ NEQ 0 


HEN 
BEGIN 


' Evaluate the account tay control flags to determine whether the 
record type is currently selected. 


if 


me ee em ee a a ed ed = id ed ed = wd = ad = I 
a ma a ed ed od = od 2 = SS 2 ws 2 
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ACRCACRSV TYPE FROM ACRSK_PRCDEL TO ACRSK_FILE_BL OF 


16 
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v0e 


18 } 

1 ¢ COUTRANGE): 

1 FALSE; 

188 

1 CACRSK_PRCDEL, ACRSK_PRCPURI: 

IF gEXESGL_ACHFLAGS ACM$V_PROCESS 

189 CASE ,ACRLACRSV, SUBTYPE] FROM ACRSK_INTERACTIVE TO ACRSK_NETWORK OF 
191 OUTRANGE): FALSE; 

198 ACRSK. INTERACTIVE]: -EXESGL_ACMFLAGSCACMSV_INTERACTIVE]; 
19 3 ACRSK~SUBPROCESSJ: -EXESGLACMFLAGSLACMS$V~SUBPROCESS); 
194 ACRSK~DETACHED): ~ EXESGLACMFLAGSLACMSV_DETACHED]; 
195 3 ACRSK~BATCH]: EXESGL_ACMFLAGSLACMS$V—BATCHJ; 

196 3 CACRSK NETWORK]: EXESGLACMF LAGSLACMSV_NETWORKJ; 
198 3 ELSE 

199 3 FALSE; 

200 


CACRSK_IMGDEL, ACRSK_IMGPUR]: 
CASE -ACREACRSV, SUBTYPE FROM ACRSK_INTERACTIVE TO ACRSK_NETWORK OF 


ooo 


ek kt a dd 
FPWR O OOO UE WN 0 OD NOAUE WN 9 OD NA UE WW 0 OONIA NEW OC OONOAU EW OVOO 


Se Se Se Oe Se Se Be Oe Ge Be Be Se Ge Se Se Se Ge Se Se Ge Ge Se FH FH Se Se Se Se Be Ge Se Be Se Ge OF Se Se Se Ge Se Ge Ge Ge Ge Se Sees SHS Se Fe Se Ge Se Se Bee 


; 

: ; 

2 5 

238 5 

§ 1 $i 5 
2 40 5 
203 241 5§ 

04 34 5 

05 43 5 UTRANGE]: FALSE; 

06 244 5 ACRSK_INTERACTIVE): -EXESGL_ACMFLAGSCACMSV_INTERACTIVE); 
207 34 5 ACRSK_SUBPROCESS): . EXESGL~ACMF LAGSCACMSV_SUBPROCESSJ; 
208 46 5 ACRSK_DETACHED): . EXESGL~ACMF LAGSCACMSV_DETACHEDJ; 
209 247 5 ACRSK_BATCHI: - EXESGL_ACMF LAGSCACM$V_BATCH); 
210 248 5 ACRSK_NETWORK):  EXESGL—ACMF LAGSCACMSV_NETWORK]; 
211 249 § TES; 
eG 
Sia 252 5 CACRSK_SYSINIT, ACRSK SETTIME, ACRSK ENABLE, ACRSK_DISABLE, 

215 253 5 ACRSK-ALTACM, ACRSK_FILE_FL, ACRSK_FILE_BLd: 
216 254 5 TROE; 

217 255 5 

218 256 5 

219 257 § CACRSK_LOGFAIL): 

231 $2 2 -ERXESGL_ACMFLAGSCACM$V_LOGFAIL); 

$8 260 5 
38 36 2 CACRSK_PRINT): 

4 6 ~ERESGL_ACMFLAGSCACMSV_PRINTJ; 

25 263 5 

26 264 5 

27 265 5 CACRSK_USER): 

$8 $6 : -ERESGL_ACMFLAGSCACMSV_USER_DATA); 

$0 sea 8 

31 $ 5 TES 

3 5 END 

3 71 4 THEN 

34 7 3 BEGIN 

35 37 
236 7% «65 


ABEL 
WRITE_RECORD; 


Accounting manager 0° 1988 93:46:83 AX-11 Bliss-32 V4.0- 


() Page 7 
” JOBCTL.SRCJACCOUNTNG.B52; ? ( 


1 
1 3) 


LOCAL 
RAB: REF BBLOCK; ! Pointer to RAB 


6 

1 

19 

7 WRITE RECORD: 

e1 BEG] 


; 7 1 

3 8 1 

5 1 

; 240 1 

3; 241 1 

: 26 1 6 

; 24 1281 6 

; te : ¢ ? Pick up a pointer to the RAB. 

3 7 : bs ° RAB = .ACCOUNTING_RABS(O]; 

; 248 1 HY 6 

; 249 1 6 ! If there is a previous asynchronous operation in progress, wait 
3 29 ! MY ? } for its completion. 

; 26 1290 6 IF TESTBITSC(RABCRABSV_ASY]) 

. ao 1291 8 THEN 

; 254 129 BEGIN 

3 ¢€9 1293 7 IF NOT $WAIT(RAB=.RAB) THEN LEAVE WRITE_RECORD; 

> 256 1638 6 END; 

: 257 1295 6 

; 258 1296 6 

: 59 1297 6 ! Initialize the record descriptor and write this record. 

; 260 1298 6 ! 

; 261 9.44 6 RABCRABSW_RSZ] = .ACRCACRSW_LENGTHI; 

3 $06 1300 6 RABCRABSL_RBFJ = .ACR; 

H 6 1301 6 IF NOT S$POT(RAB=.RAB) THEN LEAVE WRITE_RECORD; 

; 264 1308 6 

; 265 1303 6 

> 266 1304 6 ! Unless this is an image accounting record, start an asynchronous 
3 sor 1302 ? SFLUSH to write this record to disk. 

; 269 1307 7 IF NOT ONEOF_(.ACRCACRSV_TYPE], BMSK_(ACRSK_IMGDEL, ACRSK_IMGPUR) ) 
3 $70 1308 6 THEN 

3; 271 1309 7 BEGIN 

3 $%6 1310 7 RABCRABSV_ASY] = TRUE; 

Re /¢ 1311 7 IF NOT $FCUSH(RAB=.RAB) THEN LEAVE WRITE_RECORD; 

; 276 1316 6 END; 

3 64ar3 1313 6 

; $76 1314 6 

. 2¢ 1315 6 ! Completed successfully -- return. 

; $78 1316 6 ! 

; e279 1317 6 RETURN; 

3 $B0 1318 : END; ! block WRITE_RECORD 

: 281 131 

; Ht 1320 5 : 

3 +4 13! 5 An error occurred writing the record. Report it. 

3 8g a SIGNAL_FILE_ERROR(JBCS$_WRITEERR + STSSK_ERROR, .FAB, .RAB); 

: 28 1335 

; 288 1 $ ! Unless the error is ‘‘device full’’, close this accounting file, 
; 4 : try to open a new one, and then try to write the record again. 
; 291 1 3 IF .RABCRABSL_STS] EQL RMSS_FUL 

: 3 1330 THEN 

; 2 1331 EXITLOOP 


16 
ACCOUNTNG Accounting manager - 
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-1984 23:46:25 AX-11 Blis -32 v4.0 
- ears vi 93:98:82 JOBCTL.SRC ACCOUNTING. t 2:1 
; 94 1 § ELSE 
H 95 1 OPEN_ACCOUNTING_FILE(TRUE); 
3 38 1334 END 
: 538 1386 st RETURN 
a a aes 3 
: 301 1339 RETURN; 
: 8g 1340 D; 
3 0 1341 
; 304 1 4g 
; 4 \ rhe Writing has failed. Implicitly disable accounting. 
: 307 1345 2 SIGNAL(JBC$_ACCDISERR OR STSSK_INFO); 
3 08 1 48 CLOSE ACCOUNT ING FILEQ; 
; 309 134 1 END; 


-TITLE ACCOUNTNG Accounting manager 
SIDENT \V04=000\ 


«-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_STORAGE BASE: 


.BLK 0 
00000 DIAG_TRACE: 
-BLKB 96 
00060 DIAG_COUNT : a 
000CO DIAG_FLAGS: : 
000C4 WORK_AREA: 
-BLKB 44 
OO0FO SNDJBC_COUNT: we 
00174 GETQUI_COUNT: 
.BLK 40 
0019C SNDACC_COUNT: 
.BLK 28 
00188 SNDSMB_COUNT: 
LKB 72 
00200 DIAG_STORAGE_END: 
-—BLKB 0 
90200 FL LAGS: .BLKB 4 
0 IMAGE_DUMP_STSFLG: 
.BCKB 4 
00208 THIS_SYSID: 
0020 “BKB § 
$0395 CUR_TIME: 
.BLK 3 
00218 HOURLY_TIME: 
-BLK 8 
00220 HOURLY_PARAMS : os 


~BLK 
00234 SYMBIONT_ COUNT: 
“BLKB 4 
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00238 QUEUE cet 0 -COUNT: 


-BLKB 74 
0023¢ MBX -MESSAGE COUNT 
00 40 MBX: “BL KB 4 
0024 4 
00 ta MEMORY. “Hie PAUEUES: 
00270 NONAST WORK QUEUE: 
00278 BCB_FREE -List: : 
0027C BCB_ACTIVE List: " 
00280 GQL_FREE_LIST: 

LKB 4 
00284 GOQL_ACTIVE LIST: ; 
00288 OPEN_GETQUI LIST: 
0028C PROCESS PATA LIST: 
00290 SYMBIONT -CONTROL : 
00294 SPARE ~AREA: es 
002A0 REMOTE REQUEST. LKSB: 
002A8 QUEVE_FILE LKSB: 
00280 QUEVE_LOCK_LKSB: 

-BCK KB 8 
00288 RSP LKB 8 
002C0 JBC *pRiokitY: : 
002C4 JBC_PRIVILEGES: : 
002CC JBC_QUOTAS: 

-BLKB 66 
0030 -BLKB 2 
00310 JBC_UIC:.BLKB 4 
00314 QUEDE_FAB: 

-BLKB 80 
00364 QUEUE_RAB: 68 
003A8 QUEUE_NAM: 

00408 QUEUE _XAB: 

-BLKB 88 
00460 QUEUE_RSA: 

-BLKB 255 
0055F -BLKB 1 
00560 QUEUE_ALQ: ; P 
00564 QUEUE _MSF : Ry 
00565 “BLKB 3 
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00568 
00570 
00578 
005¢8 
0060C 
0066C 


00768 
0076C 


007B8C 
00800 
00860 


0095F 
00960 


00980 
009F4 
009F8 
00A00 
00E00 
00E00 
00E20 
00E20 
00E26 
QOOE2A 
00E 32 
00E33 
00E 34 
OOE3A 
00E44 
00E45 
00E46 
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JOBCTL.SRCJACCOUNTNG. é 231 
ACCOUNTING FABS: 


-BCK 8 
ACCOUNTING _RABS: 

.BCK 8 
ACCOUNT_FAB_A 

BL 80 
ACCOUNT_RAB_A: 

BL 68 
ACCOUNT_NAM_A 

BL 96 
ACCOUNT_RSA A: 

~BLRB 255 

-BLKB 1 
ACCOUNT_FAB_B: 

-BLRB 80 
ACCOUNT_RAB_B: 

-BLRB 68 
ACCOUNT_NAM B: 

-BLRB 96 
ACCOUNT_RSA_B: 

-BLRB 255 

-BLKB 1 
DIAG_FAB: 

-BLKB 80 
DIAG_RAB 

: 68 
MBX_CHAN 4 
MBX_IOSB: 

8 8 
MBX_BUFFER: 

10 


BLK 24 
VALUE _STORAGE_BASE : 

.BLKB~ 0 
ITEM_PRESENT : 

BLK 
VALUE _GETQUI BASE: 
VALUE_ACCOUNTING_MESSAGE : 
VALUE _ACCOUNT ING TYPES: 
VALUE AFTER TIME : 
VALUE_ALIGNMENT_PAGES: 

.BLKB 71 
VALUE_BASE PRIORITY: 
VALUE_BATCH INPUT: 
VALUE BATCH OUTPUT: 
VALUE _BUFFER COUNT: 
VALUE CHARACTERISTIC NAME : 
VALUE_CHARACTERISTIC_NUMBER: 


AggOWMTNG Accounting manage VESeoctgue @B:46:25  Yaactt kiae 32 wee oe7eg. 
O0E4C VALUE CHARACTERISTICS: 
QOESC VALUE_CHECKPOINT_DATA: 
00E62 VALUE _cLis . 
-BLKB 6 
00E68 VALUE CPU DEFAULT: 
00E6C VALUE CPU LIMIT: 
00E70 VALUE DESTINATION QUEUE 
00E78 VALUE DEVICE NAME : 
OOE7E VALUE -ENTRY NUMBER 
00E82 VALUE -ENTRY NUMBER _OUTPUT 
00E8C VALUE _EXTEND QUANTITY: 
OOE8E VALUE _FILE COPIES: 
OOESF VALUE FILE IDENTIFICATION: 
00EB3 VALUE FILE SETUP MODULES: 
00EB9 VALUE FILE “SPECIFICATION: 
QOEBF VALUE_FIRST PAGE: 
00EC3 VALUE FOAM DESCRIPTION: 
00EC9 VALUE _FORM LENGTH: 
OOECA VALUE _FORM MARGIN. BOTTOM: 
00ECB VALUE _FORM MARGIN. LEFT: 
O0ECD VALUE _FORM MARGIN RIGHT: 
OOECF VALUE FORM MARGIN. TOP: 
OOEDO VALUE_FORM NAME 
OOED6 VALUE_FORM_NUMBE 
QOEDA VALUE FORK: 
QOEE2 VALUE FORK SETUP 
OOEES VALUE Fok Stock; 
OOEEE VALUE FORM WIDTH: 
OOEFO VALUE GENERIC. TA 


MODULES: 


R: 
4 
8 
B 
6 
2 
RGET: 
9 


GE 
96 


01204 
01205 
01206 
0120¢ 
012E2 
012€6 
O12EA 
0124 
012F8 
O12FE 
01306 
0130C 
01312 
01318 
0131C 
01322 
01328 
0132E 
01334 
0133A 
01340 
01346 
0134C 
01352 
01353 
01359 
01350 
01363 
01369 
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ACCOUNTNG Accounting manager 1 -1984 AX-11 iss- 
account unting manag EoSeont9Be 28:46:25 YANCHE Lise 32 074g 


VALUE _J08 COPIES: 

VALUE _J08 LIMIT: 

VALUE JOB NAME : 

VALUE_J08 RESET MODULES: 
VALUE JOB S1ZE_MAXIMUM: 
VALUE 108 S1ZE MINIMUM: 
VALUE _JOB_STATUS_OUTPUT: 
VALUE_LAST PAGE: 

VALUE _LIBRARY_SPECIFICATION: 
VALUE _LOG QUEUE : 

VALUE _LOG_ SPECIFICATION: 
VALUE.NOTE: 
VALUE_OPERATOR_REQUEST: 
VALUE OWNER UIC: 
VALUE _PAGE_SETUP 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE_PARAME TER. 
VALUE_PARANETER_ 
VALUE PARARETER_ 
VALUE _PARAMETER_ 
VALUE _PARARE TER 
VALUE -PRIORITY: 
VALUE _PROCESSOR: 
VALUE PROTECTION; 
VALUE QUEUE : 
VALUE_QUEUE FILE SPECIFICATION: 
VALUE _RELATSUE_PAGE: 


MODULES: 


nF AMoe & 


on on = COO NO OOO RO WONO— 
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vO4=000 rie nas Pa tS a ar OP lt hg Pt nT Oe a 
.BLKB 4 
0136D VALUE -RESERVED_ INPUT. 1: 
0136E VALUE ~RESERVED. INPUT. 2: 
01370 VALUE -RESERVED. INPUT. 3: 
01374 VALUE -RESERVED. INPUT. 4: 
0137A VALUE ~RESERVED. OUTPUT 1: 
01384 VALUE_RESERVED_OUTPUT_2: 
0138 VALUE SEARCH STRING: 
01394 VALUE_SCSNODE_NAME : 
-BLKB 6 
0139A VALUE _WSDEFAULT: 
0139C VALUE_WSEXTENT: 
.BLKB 2 
0139E VALUE_WSQUOTA: 
.BLKB 2 
013A0 VALUE. STORAGE END: 
-BLKB” 0 
JBC$_CLOSEOUT= 266328 
JBC$"NOCMKRNL= 272388 
JBC$~NOOPER= 72532 
JBC$"NOSY SNAM= 72404 
JBC$"OPENIN= 266392 
JBC$"OPENOUT= 266400 
JBC$~READERR= 266416 
JBC$"WRITEERR= 266448 
.EXTRN FIND -PROCESS DATA 
-EXTRN LOCKTQUEUE FILE 
-EXTRN READ “RECORD SIGNAL _FILE_ERROR 
“EXTRN UNLOCK -QUEU é F 
-EXTRN EXESGL~ Yixgeee 
-EXTRN SYS$ scart ME YSSPUT 
TEXTRN SYSS$FLUSH 
-PSECT CODE,NOWRT,2 
003C 00000 WRITE_ACCOUNTING_FILE: 
WORD Save R2,R3,R4,R5 > 1161 
55 000000006 00 3 00002 ROVAB EXESGL *ACMELAGS R5 : 
54 02 D 900 9 MOVL #2, | : 1197 
53 00000000" EF DO S0¢ 1$: MOVL § ACCOUNTING_FABS, FAB : 1206 
02 AS B5 9901 TSiw (FAB) + 1207 
01 12 00016 BNEQ $ ; 
04 00018 RET 2 
50 67 07 01 EF 00019 28 EXTZV. #1, a7. + (ACR), RO : 1216 
OD 01 50 CF O01g CASEL RO, # ; 
0036 0036 001D 0010 0022 3$ <WORD 4$-3$,- ; 
0069 0064 0074 0074 000 A 4$- 3.° ; 
0074 0074 0074 06E 0032 7$-3$,- : 
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1 | 
Ce ee asSegctQGe H:ML:RE  YASSLY ObeHaRE ath de"eBo, peer tS 


50 7 7 1 €F C EXTZV #1, #7, (ACR), RO ; 1307) ‘ 
86 18000000 SF 9) 5 ¢ ASHL RO, #462653184, RO : | : 
ac D BLSS.  2a$ ; | : 
04 A2 g D BISB2 #1, 4(RAB) : 1310) ; 
‘ DD 00D PUSHL ; 1311, ; 
000000006 90 FB D CALLS #1, S¥SSFLUSH : : 
C c OF BLBS RO, 228 ; | ; 
DD OOOE2 19$:  PUSHL RAB ; 1323, : 
DD OO0ES PUSHL FAB ; | ; 
| 000410D2 af DD O00E6 PUSHL #266450 : | ; 
900000006 Ef 3 FB OOEC CALLS #3, SIGNAL FILE ERROR : | ; 
| 00018544 F 08 A2 01 OOF CMPL (RAB), #9965 ; 1329) ; 
OF 13 OOOFB EQL 1 : ; 
01 oD GOOFD PUSHL #1 ; 1333) ; 
0000v CF 01 FB OOF F CALLS #1, _OPEN_ACCOUNTING_F ILE : 
02 4 F5 00104 SOBGTR } : 1197 
03 11 00107 { : 
FFOO 31 00109 208: BRW 1$ : 
00048403 8F DD 0010C 21$:  PUSHL #295939 : 
600000006 00 01 FB 00112 CALLS #1, LIBSSIGNAL ; 
0000v CF 00 FB 00119 CALLS #0, CLOSE_ACCOUNTING_FILE > 1346 
04 OO11E 228: = RET > 1347 


; Routine Size: 287 bytes, Routine Base: CODE + 0000 
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ACCOUNTNG Accounting manager 1-50 Sep-1984 46:25 AX-11 Bliss-32 v4 Page 1 
¥0-000 ° ° 14- 23e p= 1 Oba 4 $3: 96:82 JOBCTL.SR REIA ACeOUNTNG. " 2:1 . (4 


1} ! re : GLOBAL ROUTINE OPEN_ACCOUNTING_FILE(NEW): NOVALUE= 
ig 1550 1 !4¢ 
14 1551 1! 
15 133¢ 1 | FUNCTIONAL DESCRIPTION: : 
18 13555 1! his routine opens an accounting file. If one is already open. it is 
13 : 2¢ : closed and a new copy created. 
' 
19 1 2$ 1 ! INPUT PARAMETERS: 
’ et } NEW - True if a new file must be created. 
; 1359 1 | IMPLICIT INPUTS: 
1360 1} NONE | 
i 136] 1 | | 
5 1 6¢ 1 ! OUTPUT PARAMETERS: 
° 1365 1! NONE 
2 1364 1 | 
8 1365 1°! IMPLICIT OUTPUTS: 
% 1308 1! NONE | 
0 136 a: | 
31 1368 1 ! ROUTINE VALUE: 
3 1369 1 | NONE 
1370 1 | | 
1371 1 ! SIDE EFFECTS: 
35 1376 1! Accounting file opened. 
36 13735 1! 
37 1374 1 i-- 
He 1375 1 | 
39 1376 2 BEGIN 
340 1377 : LOCAL | 
341 1378 OLD_IFI, ! Previous IFI value for current file 
a6 1379 2 OLD_FAB: REF BBLOCK, ' Current FAB 
34 1380 § OLD_RAB: REF BBLOCK, ' Current RAB 
344 1381 NEW"FAB: REF BBLOCK, i Next FAB 
345 1386 2 NEW_RAB: REF BBLOCK; ! Next RAB 
346 1383 2 
347 1384 2 chee 
46 1385 2! If this is the first call, initialize. | 
50 1387 IF .ACCOUNTING FABS(O) EQL 0 | 
51 1388 THEN 
26 1389 BEGIN 
5 1390 ACCOUNTING FABSEO] = ACCOUNT FAB_A; | 
54 1391 ACCOUNTING-FABSC1] = ACCOUNT-FAB-B; 
55 1 8 ACCOUNTING_RABS[OJ = ACCOUNT_RAB_A; 
56 133 ACCOUNTING RABSC1) = ACCOUNT_RAB_B; 
57 P 1394 $F AB INIT CFAB=ACCOUNT _FAB_A, 
58 P 1395 FAC=PU 
59 P 1396 FNASUPLIT BYTE(*ACCOUNTNG'), 
P 1397 FNS=ZCHARCOUNT ("ACCOUN TNG'), 
1 P 1398 DNA=UPLIT BYTE(' SYSSMANAGER: DAT’), 
§ P 1399 PS SECM COUNES "STSSRAMARER: DAT’ : 
P 1400 FOP=CIF, 
P 1401 DEQ= | 
5 p 140@ ORG= “SEG, | 
P 140 RFM=V 
P 1404 =ACCOUNT _NAM_A, 


a 


6 
/ ACCOUNTNG Accounting manager 18-s Sep 4 23:46:25 AX-11 Bliss-32 V4.0-7 Page 1 
“YO5"000 ° ° 14-Sep 71382 2:36:55 JOBCTL.SRC ACCOUNTNG. 4 2:1 . (4 
SHR=<GET,UPI>); 
SRAB INIT (RAB=AC COUN 
FAB=ACCOUNT_FAB 


vu vvuvwvv 


ee ee a ee ae ce a ce a a ee a ce ce cee a ec a ce ec ee ec ce ce ee ee ee ee ee ee ee eed 
Fe ek et ek ek ak ak ke ek ek eh ee eh ek ke ak ek ee ek ee ee ek ek ek ek 


_MAXRSS) 
CHSMOVE (rABSEa =BLN, act 
CHSMOVE (RABSCBLN, AC 
CHSMOVE (NAMSC~ BEN: AC 
ACCOUNT FAS eg NAM 


BCRABSL_FAB 
ACCOUNT. NAM~BCNAMSL-RSA 


estes] 


Pick up pointers to the current and new FAB and RAB. 


| 

| 

.ACCOUNTING_FABS 03; | 

~ACCOUNTING-RABS([O]: 

“ACCOUNT ING-RABSL1): 
| 
| 
| 
| 
j 
| 
| 


! If an ———— file is currently open, unconditionally create a new file. 
! Otherwise, use the CIF opt ton to connect to the end of the existing file. 
; Set up ALQ for no initia 


NEW_ FABCFABSY CIF] = TRUE 
OLD “IF “OLD FABCFABSW. IF1 
IF “OLD. 1Fi NEG 0 0 OR .NEQ rdeh NEW_FABCFABSV_CIF] = FALSE; 


allocation. 


PDD & BS BE EE EE EAA ANNAN AIR IPIPININNPININIDYD 2 2 OOO OM MF OOOO 
OOO NA UNE WIN 0 OD NA UE WIN 0 OD NAME WW 0 ODNOA UE WWN SH OOONAUE WN "OOONOW 
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404 ! Create or open the file. Accept an error that occurs during a create-if, 

108 and loop to create a new version. 

407 WHILE TRUE DO 

408 BEGIN 

409 NEW_FABCFABSL_ALQ) = 0; 

410 IF ROT $CREATE(FAB=.NEW_FAB) 

411 THEN 

ate BEGIN 
41 IF TESTBITCC(NEW_FABCFABSV_CIFJ) 

414 THEN 
415 BEGIN 

hy a bop te ERROR(JBC$_OPENOUT + STSSK_ERROR, .NEW_FAB, .NEW_FAB); 
418 ND; 
419 END 
420 
421 BEGIN 

? $ IF NOT SCONNECT(RAB=.NEW_RAB) 

424 BEGIN 
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14-Sep-1984 


SIGNAL_FILE_ERROR(JBC$_OPENOUT + STS$K_ERROR, 
SCLOSETFAB=\NEW FAB); 
NEW_FABCFABSW_IFIJ = 0; 
END 
EXITLOOP; 


' If an Secount ing file was 
° 


r 
! write the file rward tink record. Omit t 


a 13:98:88 


AX=-11 Bliss-32 V4.0-74 
JOBCTL.SRCJACCOUNTNG.B32;1 


-NEW_FAB, .NEW_RAB); 


eviously open ond a new file has been created, 
his if forced creation of a new 


file is requested, since the previous tite. sustained an error. 
if (NOT wie Leer aaee CIF] OR .NEW_FABCFABSL_STS] EQL RMS$_CREATED) 


AND .OLD_IFI™N 
THEN 


THEN WRITE FILE LINK_RECORD(ACRSK_FILE,FL, 


IF NOT .NEW 
LOSE. ACCOUNT ING_ FILE(S; 


Exchange FAB and RAB pointers. 


ACCOUNTING_FABS[O] = -NEW_FAB; 
ACCOUNTING_FABSL1] = .OLD-FAB; 
ACCOUNTING _RABSLOJ = .NEW_RAB; 
ACCOUNTING_RABS(1] = .OLD_RAB; 


If an accounting 


if :OL0_IFI NEQ 0 THEN WRITE_FILE_LINK_RECORD(ACRSK_FILE_BL, 


SRMS_PTR= 
SRMS_PTR= 
SRMS_PTR= 
~EXTRN 
-EXTRN 


01FC 00000 -ENTRY 


aah 
oro 

r 

N 
PoOarormm 
AnNNOUN 


O1F4 
50 


»-NEW_FAB); 


file was previously open, write the file back Link record. 


-OLD_FAB); 


\ACCOUNTNG\ 
\SYSSMANAGER: .DAT\ 


ACCOUNT _FAB_A 
rat aa =RAB_A 


T>NAM"A 
SYSSCREATE. ~SYSSCONNECT 
SYSSCLOSE 


OPEN ACCOUNTING_FILE, Save R2,R3.R4,R5,R6.- 
SIGNAL_FILE ERROR, RB 
ACCOUNT _FAB~A 
ACCOUNTING_FABS 
1$ 
OUNTING_F ABS 


OUNT ING_FABS+4 
OUNT ING_RABS 


i 
>oa>r 
.*- . © 
>>> 
AAO 
QO 


ACCOUNTNG Accounting manager 18-5 Sep 5 AX-11 Bliss-32 V4.0 Page 19) AC( 
Woeebo0 14-Sep 71382 $346 82 JOBCTL. SRCJACCOUNTNG. 5 2:1 As] v4 

FC OA? 0244 7 9E 00027 MOV ACCOUNT RAB 0° ACCOUNTING _RABS+4 3 1393. : 

0050 =saBF 00 &E 69 2¢ a p movcS #0, (SPY, 980. SRMS_PTR ; 1405 : 

67 5003 F BO 00035 MOVW # RMS_PTR : 3 

06 A7 02000000 ' DO OO03A MOVL ASas5at3 SRMS PTR+4 : | i 

14 A? 4201001 F DO 00042 MOVL sof] 107561 17, $RAS_PTR+20 : : 

1D AZ? 94 O004A CLRB san R29 : F 

1fF OA? 0@ 90 00040 MOVB Shs R+31 : | ; 

8 AZ 0094 C? 9E 00051 MOVAB Tee OUR T Rane A ses _PTR+40 : ; 

[a2 8D AF 9E 00057 MOVAB PCAAAY SRMS-PTR+4 : | 3 

0 A7 91 AF 9 005¢ MOVAB PAB. SRMS— PT Recs : ; 

i: oF 1009 F 8 30061 MOVW #4105, $RMS-PTR+5 : 5 

0044 8F 00 6E so 09. 2 90067 movcS #0, (SP), #0, #68, SRMS_PTR ; 1411 | ; 

50. A? 4401 8F 80 00076 MOVW #17409, $RMS_PTR : : 

54 AZ? 0500 8F 3C 00076 MOVZWL gieeo SRMS_PTR+4 3 : 

6— A? 94 0007C CLRB RMS _PTR+ 30° ; : 

0086 (7 0102 8F 80 0007F MOVW roses ohs P R+54 ; ; 

008C ¢7 67 9E 00086 MOVAB Accou T FAB he SRMS_PTR+60 : ; 

0060 8F 00 6E 00 2C 00088 movcS #0, Ney #0, #96, SRMS_PTR + 1414) ; 

0094 (C7 00092 : : 

0094 C7 6002 8F BO 00095 MOVW #24578, sRMs PTR : F 

0096 «¢7 01 8 0009C MNEGB #1, $RMS PTR2 : : 

0098 ¢7 O0OF4 C7 9E OOOAI MOVAB ACCOUNT ASAT A, $ + : ; 

OFS §=6C7 67 0050 8F 28 O00A8 MOVC3 #80, ACCOUNT_FAB_A, ACCOUNT_FAB_B + 1415 F 

0244 (7 50 A? 0044 8F 28 000B0 MOVC3 8, ACCOUNT-RAB-A, ACCOUNT-RAB_B + 1416 : 

0288 (7 0094 C7 0060 8F 28 00089 MOVC3 #96, ACCOUNT"NAM-A, ACC “B : 1417 ; 

021c ¢7 0288 C7? 9E 000C3 MOVAB COUNT_NAM_B, ACCOUNT_FAB_6+40 : 1418 i 

0280 (C7 O1F4 C7 9E OOOCA MOVAB ACCOUNT-FAB-B, ACCOUNT—RAB_B+60 t 1419 ; 

028 «¢7 02E8 C7 9E 00001 MOVAB ACCOUNT~RSA~B, ACCOUNT-NAM~B+ + 1420 : 

53 FO AZ «00 0008 2$ MOVL  ACCOUNTING_FABS, OLD FA + 1426 F 

52 F4 AZ DO 000DC MOVL CCOUNTING-FABS 4 NEW FAB + 1427 ; 

56 F8 AZ DO OOOEO MOVL § ACCOUNTING-RABS, : 1428 ; 

55 FC AZ DO OO0ES MOVL ACCOUNTING “RaBsiee UNEW. RAB + 1429 ; 

07 A2 02 88 000E8 BISB2 #2, 7(NEW FAB : 1436 : 

50 02 Ad 3C¢ SO0EC MOVZWL 2(OLD_ PABy OLD_IFI > 1437 F 

54 D4 000FO CLRL = RG : 1438 F 

50 DS 000F2 TSTL  OLD_IFI : : 

04 13 O00F4 BEQL 46s 3$ : ; 

54 D6 000F6 INCL R4 ; : 

04 11 000F8 BRB 4s ; ; 

04 06 AC E9 OOOFA 3$ BLBC ; : 

07 A2 02 8A OQOOFE 4$ B1CB2 We. “7 (NEW FAB) ; F 

10 Ag D4 9019 5$ CLRL 16(N NEW FAB) + 1446 : 

52 DD 0010 PUSHL NEW + 1447 ; 

000000006 00 01 FB 00107 CALLS #1,~ CYSSCREATE ; : 

14 50 £8 0010E BLBS RO ; : 

EC 04 A2 19 £4 00111 BBSC #25, 4(NEW_FAB), 5$ : 1450 F 

32 DD 00116 PUSHL NEW_FAB > 1453 : 

52 DD 00118 PUSHL ; : 

000410A2 BF DD OO11A PUSHL #266402 ; | : 

£8 03 FB 0012 CALLS #3, SIGNAL_FILE_ERROR ; : 

: 11 001 BRB 7$ > 1452 | : 

DD 00125 6$ PUSHL NEW_RAB > 1459 | ; 

000000006 00 gi FB 0127 CALLS #1, ~SYSSCONNECT ; : 

17 0 E8 O012E BLBS : ; : 

24 BB 00131 PUSHR #*M<R?,R5> > 1462 ; 
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j 


882: 


JACCOUNTNG. 


AX-11 Bliss-32 V4.0-74 


JOBCTL.SRC 


i 


1 


Sep-1986 12:46:55 


H 
13° 
14- 


Accounting manager 


TNG 


ACC 
04 


Fe Fete te tetera tate te tate tetera re tertearare 


_FILE_ERROR 


+ SIGNAL 
W_FAB 


ggeeete 


“SYSSCLOSE 


FAB), 8$ 
, #67097 


FAB) 
J 


W 


7TNEW 
EW_FAB 


eomoO@Oy-- WOWOOoOMMoocoooeys 
Ou O64 Owomr-wwocdevhPwoouwod 


MN HN ONAN ON QCOONIMN ST MWY 
DONO LOS “MN INOOOUMUNOO 


000410A2 
68 


000000006 00 


A2 
8F 


07 


00010619 


OA 


04 


05 


Q000v CF 


385 bytes, Routine Base: CODE + 0138 
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1 
Accounting manager bese “1984 23:46:25 Ax-11 Blis 
: or19e6 12:36:58 — EadactusRe 


14-Sep-1984 
GLOBAL ROUTINE CLOSE_ACCOUNTING_FILE: NOVALUE= 
lee 


' 
! FUNCTIONAL DESCRIPTION: 
This routine closes an accounting file, if one is open. 


INPUT PARAMETERS: 
NONE 


6: 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
! IMPLICIT OUTPUTS: 
NONE 
! ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
! 
i 
i 
} Accounting file closed. 
lo 


BEGIN 
LOCAL 
FAB: REF BBLOCK, ! Pointer to FAB 
RAB: REF BBLOCK; ! Pointer to RAB 
FAB = .ACCOUNTING_FABS(O]; 
RAB = .ACCOUNTING_RABS(0); 


IF .FABCFABSW_IFI] NEQ 0 
THEN 


BEGIN 
IF TESTBITSC(RABLRABSV_ASY)) 
IF NOT $WAIT(RAB=.RAB) 
SIGNAL_FILE_ERROR(JBC$_WRITEERR + STSSK_ERROR, .FAB, .RAB); 


IF NOT $CLOSE(FAB=.FAB) 
SIGNAL_FILE_ERROR(JBC$_CLOSEOUT + STSSK_ERROR, .FAB, .FAB); 


FABCFABSW_IFI] = 0; 
END; 
END; 


) 


roe 


< 
2 


SS 
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| ACCOUNTNG Accounting manager 1hese 1984 246: AxX-11 Bliss-32 V4.0-74 Page 22 
‘vote ° ° 127808-1 3b 93:98:82 NOBCTL SRETACCOUNTNG B42; . & 
; 
| 001¢ 00000 .ENTRY CLOSE_ACCOUNTING_FILE, Save R2,R3,R4 1496 
4 90000006 EF 9 008 MOVAB SIGNAC_FILE ERROR, R4 
3 00 000" EF D 00 MOVL ACCOUNTING FABS, FAB 1529 
| 0000000" EF D 19 MOVL  ACCOUNTING-RABS, RAB 15 : 
02 A3 BS 0001 STW (FAB) 153 
3A 13 OOO1A BEQL $ 
19 04 A2 09 E5 0001C¢ BBCC #0, 4(RAB), 1$ 1536 
| DD 00021 PUSHL RAB 1538 
000000006 90 QI Fe 00 3 CALLS #1, SYSS$WAIT 
D 0 € A BLBS RO, 18 
3¢ DD 00020 PUSHL RAB 
53 (DD 000¢F PUSHL FAB 
00041002 BF DD 00031 PUSHL #266450 
64 03 FB 00037 CALLS #35, SIGNAL _F ILE _ERROR 
53 DD O003A 1$ PUSHL FA 
000000006 00 01 FB 0005¢ CALLS #1, SYSSCLOSE 
0D 50 €E8 0004 BLBS RO, 2$ 
53 DD 00046 PUSHL FAB 
53 DD 00048 PUSHL FAB 
0004105A 8F DD O004A PUSHL #266330 
64 03 FB 00050 CALLS #3, SIGNAL_FILE_ERROR 
02 A’ B4 00053 28: CLRW =. 2( FAB) 1548 
04 00056 3$: 1550 
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MACRO ACM_PACKET(TYPE ,SUBTYPE ,ACR,APK)= | 


44 


1 
i FUNCTIONAL DESCRIPTION: 
' This macro builds the packet header. 


i INPUT PARAMETERS: 
i TYPE 


i | 
“ 
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Packet sebtres 


8 SUBTYPE - Packet su 
ACR - Pointer to Secount ine record buffer. 
i IMPLICIT INPUTS: 
! NONE 
OUTPUT PARAMETERS: 
APK - Pointer to packet. 


IMPLICIT OUTPUTS: 
! Packet header built in record buffer. 
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1 
4 ' SIDE EFFECTS: 
7 i NONE 
626 i 
628 
629 1 BEGIN 
630 1 APK = (ACR) + -BBLOCKLACR, ACRSW_LENGTH]; 
97 631 APKCACRS$W_LENGTH 
98 632 RIF RCTCECTYPE) AND XCTCE (SUBTYPE) 
634 APKCACRSW. TYPE) = 
635 CRSM-PACKET OR 
636 (veer $81 TPOSITIONCACRSY TYPE) OR 
60 637 (SUBTYPE) * $BITPOSITION(ACRS$V_SUBTYPE) 0 
638 ACRSK_CURVER * S$BITPOSITION(ACRSV VERSION) 
605 639 LSE 
06 640 APKCACR$W_TYPE] = 
607 641 ACRSM~PACKET OR 
608 64¢ ACRSK-CURVER * $BITPOSITION(ACRSV_VERSION) ; 
9 64 APKCACR Hy “TYPE (TYPE); 
610 644 APKCACRSV~ SUBTYPE] = (SUBTYPE) 
611 645 : 
612 646 1 END 2; 
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ROUTINE IDENT_PACKET: L_IDENT_PACKET NOVALUE= 
i++ 
i FUNCTIONAL DESCRIPTION: 
} This routine builds the identification packet. 
i INPUT PARAMETERS: 
NONE 
i IMPLICIT INPUTS: 

ACM - Pointer to mailbox message. 

ACR - Pointer to accounting record buffer. 

SJH - Pointer to SJH or 9. 

SMQ - Pointer to SMQ or QO. 
i IMPLICIT OUTPUTS: ; A 


i ROUTINE VALUE: 
NONE 


| 
| 
| | 
7 
i QUTPUT PARAMETERS: | 
NONE 
' 
Identification packet built in record buffer. 
: | 
' | 
i SIDE EFFECTS: | 
NONE 
: 
| 
| 


BEGIN 

EXTERNAL REGISTER 
ACM = AC EG REF BBLOCK, ' Pointer to mailbox message 

EG: REF BBLOCK, ! Pointer to record buffer 

EG: REF BBLOCK, ' Pointer to SJH 

EG: REF BBLOCK; ! Pointer to SMQ 


SJH | 
! Pointer to packet | 
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LOCAL 


& 
REGISTER 
P : ! Pointer to free byte 


OOD NAUE WN OOD NAMES UF MO OONAUE WN S(O CONOULS WN OOOn 


ACM_PACKET 


$ 
APXEACRSL 


APK); 
MEACHSL OWNER; 
ACMSL_UIC); 
» CACHTACHSG_PRUMSK]+0) | 
. (ACMCACMSQ~PRVMSKJ+4) ; | 
ACHSB _PROCPRIJ; | 


V 
Vv 


then hih 


APKCACRSB_P 
(APKCACRSB_ 


ono 
_ 
or 
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APKCACRS$W_ACCOUNT) = 0; 

APK ACRSU-NODENAME } s 6: | 
APKEACRSM_TERMINAL] = 0; 

APKCACR$W~JOBNAME) = 

APKECACRSL~JOBIDJ = 0; 
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APKCACRS$W_QUEUE) = 0; 

APK ACRSW“NODEADDR] = 0; 
APK Acro REMOTEIDI = Q; 

P = APKCACRSK_IDVAR,0,0,0); 


BEGIN ! block to use output registers 
REGISTER 

RO = 0; 
APKCACRSW_USERNAME] = .P = .APK; 
ae ae d ZREF (ACMSS_USERNAME) , ACMCACMST_USERNAME]; RO); 
RO = ACMSS_USERNAME = .RO; 
(.P)<0,8> = .RO; 
P= .P +1; 
MovC3(RO, ACMCACMST_USERNAME], .P; ,,, P); 
END; ! block to use output registers 
BEGIN ! block to use output registers 
REGISTER 

RO = 0 

Ri = 1: REF VECTORC,BYTE); 


Strip leading binary nulls and apt ihs blanks from the account name. 
! Don't move over the account name at all if it is totally binary nulls. 


IF SKPC(HREF (0), ZREF CACM$S_ACCOUNT), ACMCACM$T_ACCOUNT]; RO, R1) 
BEGIN 
dO 


BEGIN 
IF .RIC.RO - 1) NEQ %C* ° 


EXITLOOP; 

RO = .RO - 1; 

END 
WHILE .RO GTR 0; 
APKCACRSW_ACCOUNT] = .P - .APK; 
(.P)<0,8> = .RO; 

- .» ¢ ie 

MOvCS(RO, <RI, .P; .., P); 


END; : 
END; | block to use output registers 


oe me ee 


~ 
=x 


IF ONEOF (.ACRCACRS$V_TYPE], BMSK_( 
ACRSR_PRCDEL, ACRSK_LOGFAIL, ACRSK_IMGDEL, ACRSK_PRCPUR, ACR$K_IMGPUR) ) 
BEGIN 
IF .ACMCACM$W_NODEADDR) NEQ 0 
THEN 
BEGIN 


LOCAL 
Q: REF VECTORC,BYTE), ' Pointer to ASCIC data 
L; ! Length of data 
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+ .ACMCACMS$W_NODEADDR); 


SW NODEADDR] = .P = .APK; 
REF CL + B95 Be PS coe PI; 


END; 


IF .ACMCACMSW_NODENAME] NEQ 0 | 
THEN 


: REF VECTORC,BYTE], ! Pointer to ASCIC data 
Lé ! Length of data 


M+ -ACHCACHSWNODENAME]; | 


CRSW_NODENAME] = .P - . ; 
(ZREF(.L + 1), .Q, .Ps .,, PI; 


: REF VECTORL,BYTE), ! Pointer to ASCIC data 
L; ! Length of data 


= «ACM + ACHCACMSWREMOTEIDI; 


De 


W REMOTEID] = .P = .APK; 
EFC © Ty. ole Ph wee PH 


FAIS RENE FERMI. 22 NEQ 0 


BEGIN 
RPKEACRSW TERMINAL] = .P = ,APK; 
MOVCS(RREF (CHSRCHAR(ACHLACHST TERMINAL J) + 1), ACMCACMST_TERMINAL], .P; ... P); 
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: 785 1 18 IF .SJH NEQ 0 
: 7 181 THEN 
: 7 1820 BEGIN 
: 788 18 1 APKCACRSL_JOBID] = .SJHCSYMSL ENTRY NUMBER]; 
; 789 1 § APK acnsu, JOBNAME]) = PK; 
: 790 18 moves so oveLE) HAR (SJHCSJHST “MAME + 1), SJHCSJHST_NAME], .P; ,,, P); 
: 791 1824 APKCACR$W_QUEUE) = 
; 9 18 5 ROVCS CREF (CHSRCH ARiSMarsMast _NAME]) + 1), SMQCSMQST_NAMEJ, .P; .,, P); 
: 794 18 5 
: 795 1828 
: 796 18 9 2 APKCACRSW_LENGTH] = .P = .APK; 
:; 79 1830 ACR ACRSW_ LENGTH) = .P = .ACR; 
: 798 1831 1 END; 
013C 00000 IDENT_PACKET: 
58 02 AZ 3¢ 00002 MOVZWL 2(ACR), APK + 1689 | 
58 57 £0 00006 ADDL2 ACR, APK : 
68 2003 8F 3¢ 00009 MOVZWL #8195, (APK) : 
04 A8 ¢8 A6 DO si MOVL 40(ACM), 4(APK) : 1690. 
08 AB 0 A6é DO 0001 MOVL 48(ACM), 8(APK) : 1691 
OC AB 0C AB DO 00018 MOVL 12(ACM). 12(APK) : 1698 
10 AB 04 A6 7D 0001D MOVG 4(ACM), 16(APK) > 1693 | 
18 «AB 24 Ab 9B 000 ; MOVZBW S6CACHS, 24 (APK) + 1695 
1¢ AB D4 000 CLRL é (APK) > 1699 | 
20 A&8 7C O0002A CLRQ 2 (APK) : 1701 | 
28 A&B 04 0002D CLRL 40(APK) 3 1704) 
2C «=6—A8 «6B4 000 CLRW 44 (APK) : 1706) 
53 2— oA 4 0003 MOV 46(R8), P + 1707 | 
1A A8& 53 58 A353 00037 SUBW APK, P, 26(APK) : 1714 | 
10 Ab 0c 20 3A 0003C¢ LOCC. #32, #12, 16(ACM) : 1215 
50 ie 50 3 00041 SUBL3. RO, #12, RO : 1716 
83 50 90 00045 MOVB. RO. (P)+ : 1717 | 
63 10 Ab 50 ¢8 00048 MOVC3 RO, 16(ACM), (P) + 1719 
1c Ab 08 00 e 00040 SKPC = #0. «#8, 28(ACM) : 1732 | 
16 13 00052 BEQL «= 3$ F 
20 FF A041 91 00054 1$ CMPB  =-_ «= 1(RO)CR1], #32 : 1737 | 
03 12 00059 BNEQ : 
ES 20 F 00038 SOBGTR RO, Is : 1740 
As 7 58 a3 000 E 2$: SUBW3  APK, P, 28(APK) : 1743 
83 50 90 9006 vB. RO, PS + 1744 | 
63 61 50 28 00066 MOVC3 RO, (R1), (P) > 1746 | 
67 07 01 ai 0006A 3$: EXTZV #1. #7, (ACR), RO : 1752 | 
50 79000000 &F 50 8 OO6F ASHL RO. #20300431%6, RO ; 
54 (1 00 7 BGEO F | 
7% Ag 83 079 TSTw 116(ACM) : 1755 | 
17 13 0007C¢ BEQL 4 ; 
51 74 Ab 3 007 MOVZWL TIGCACHD Q : 1762. 
51 56 § 008 ADDL2. ACM ; 
50 61 A tt MOVZBL (Q); ' : 1763, 
08 3 00 EQLs4S > 1764 | 
As 53 A3 0008A SUBW3  APK, P, 42(APK) : 1767. 
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282 bytes, Routine Base: CODE + 0310 


3; Routine Size: 


3 is ¢ } ROUTINE RESOURCE PACKET: L_RESOURCE_PACKET NOVALUE= 

3 o¢ 1834 1 !4¢ 

; 80 1835 1! 

; 804 1 $ 1 | FUNCTIONAL DESCRIPTION: 

; 805 } i : } This routine builds the resource usage packet. 

; 09 is 9 1! INPUT PARAMETERS: 

; 808 1840 1! NONE 

; 809 1841 1! 

; 810 1 tg 1 ! IMPLICIT INPUTS: 

s 6B) 1845 1! ACM - Pointer to mailbox message. 

; \¢ 1844 1! ACR - Pointer to acccunting record buffer. 
; 81 1845 1! 

; «814 1846 1 ! OUTPUT PARAMETERS: 

; 815 1847 1! NONE 

; 816 1848 1! 

; siz 1849 1 ! IMPLICIT OUTPUTS: 

; 818 1850 1! Resource packet built in record buffer. 

; 819 1851 1! 

; 820 1326 1 ! ROUTINE VALUE: 

; 821 1855 1! NONE 

3 asé 1854 1! 

3 oe 1855 1 ! SIDE EFFECTS: 

> 824 1856 1! NONE 

; 825 1857 1! 

; bs6 1858 1 !-- 

; 827 1859 1 

; 828 1860 2 BEGIN 

; B¢2 1861 § EXTERNAL REGISTER 

; 830 1n06 ACM = ACCT_ACM_REG: REF BBLOCK, ! Pointer to mailbox message 
; 831 1865 2 = ACCT_ACR_REG: REF BBLOCK; ! Pointer to record buffer 
; 832 1864 2 LOCAL 

5 83> 1865 2 REF BBLOCK; ! Pointer to packet 

; 834 1866 § REGISTER 

3; 835 1867 P = 3; ! Pointer to free byte 
; 836 1868 

3; 837 1869 

; 838 1870 ACM_PACKET(ACRSK_RESOURCE, 0, .ACR, APK); 

; 839 1871 movt3( 

; 840 1376 ZREF (SBYTEOFFSET(ACMSL_VOLUMES) + 4 - SBYTEOFFSET(ACM$Q_LOGIN)), 
3; «841 187 ACMCACM$Q_LOGIN), 

; Beg 1874 APKCACRSQ_LOGINJ; ,,, P); 

: Be 1875 APKCACR$W_LENGTH) = .P = .APK; 

3 4 1876 ACRLACRSW_LENGTH) = .P = .ACR; 

; 6845 1877 1 END; 


013C 00000 RESOURCE_PACKET: 
WORD 


: Save R2,R3,R4,R5,R8 
02 A7 3c 00002 MOVZWL 2(ACR), APK 
57 CO 00006 ADDL2 ACR APK 
2005 ef C 00009 MOV2WL #8197, (APK) 
0 28 O000E MOVC3 #48, 68(ACM), 4(APK) 
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Routine Base: 


Ni 


88 
31 bytes, 


CODE + 042A 


; Routine Size: 
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3 7 1878 1 

; 848 1879 1 

: 49 1880 1 !4¢ 

; 850 1881 1 

3; 851 1 8¢ 1 | FUNCTIONAL DESCRIPTION: 
; 26 ; 7 : This routine build 
: 854 1885 1 | INPUT PARAMETERS: 

; 855 1 ii PACM ° 
3 528 1887 1! PSJH - 
: 85 1888 1: PSMQ - 
; 88 1889 1 i LENGTH - 
: 859 1890 1: ADDRESS - 
: 860 1891 1! 

: 861 189¢ 1 ' IMPLICIT INPUTS: 

; 86¢ 1893 1: NONE 

: 86 1894 1 

: 864 1895 1 | OUTPUT PARAMETERS: 

; 865 1896 1! NONE 

; 866 1897 1 

: 867 1898 1 | IMPLICIT OUTPUTS: 

: 868 1899 1 NONE 

: 869 1900 1} 

: 870 1901 1 ' ROUTINE VALUE: 

> 871 190¢ 1i NONE 

: 87 1903 1 

: 87 1904 1 | SIDE EFFECTS: 

: 874 1905 1 NONE 

: 875 1906 1} 

: 876 1907 1 i-- 

: 877 1908 1 

: 878 1909 : BEGIN 

: 879 1910 2 LOCA 

; 880 1911 2 ACR_BUFFER: BB 
> 881 1918 2 K? RE 
; 88 1913 2 REGISTER 

; 88 1914 = 3; 

3 884 1915 2 GLOBAL REGISTER 

; 885 1916 ACM = ACCT_ACM_REG: 
3 886 1917 ACR = ACCTACR-REG: 
: 887 1918 SJH = ACCT~SJH~REG: 
: 888 1919 SMQ = ACCT~SMQ"REG: 
: 889 1920 

: 890 1921 

; 891 19 ; ACM = .PACM; 

: 89 198 ACR = ACR BUFFER; 

; 89 1924 SJH =. H; 

> 894 1985 SMQ = .PSMQ; 

: 895 1926 2 ACM_RECORD(ACRSK_USER, 0, 
; 896 1987 IDERT PACKET(); 

; 897 1928 2 ACM_PACKET(ACRSK_USER_DATA 
: 898 19¢9 CHSQCHAR(.LENGTH, APKTACRS 
: 899 1930 2 MOVC3(LENGTH, .ADDRESS, AP 
; 900 1931 2 APKCACR$W_LENGTH) = .P - . 
: 901 1938 ACREACRS$W"LENGTH] = .P - . 
; 90¢ 193 WRITE_ACCOUNTING_FILE(); 

; 90 1934 END; 


é 
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s the user data record. 


Pointer to maiibox message. 
Pointer to SJH or 0. 
Pointer to SMQ or 0. 
Descriptor for user data. 


LOCKCJBC$K_MAXACCREC], ! Record buffer 
F BBLOCK; ! Pointer to packet 


Pointer to free byte 
REF BBLOCK, ' Pointer to mailbox message 
! Pointer to record buffer 

! Pointer to SJH or 0 

! Pointer to SMQ or 0 


PJ 
m 
~n 
@ 
@o 
— 
o 
oO 
x 
> 


REF BBLOCK; 


CUR_TIME, .ACR); 
0, .ACR, APK); 

f_uSeR_ DATA]); 

KCACRST_USER_DATAI+1; aie: Oi 


ACR; 
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ROUTINE WRITE_FILE_LINK_RECORD(TYPE,FAB): NOVALUE= 
le 
' 
FUNCTIONAL DESCRIPTION: 
This routine builds the accounting file forward and back Link records. 
INPUT PARAMETERS: 
TYPE - Record type (ACRSK_FILE_FL 
FAB - Pointer to FAB from which 
IMPLICIT INPUTS: 
NONE 


, ACRSK_FILE_BL). 
to obtain filespec. 


! OUTPUT PARAMETERS: 
NONE 


i 
1 
i IMPLICIT OUTPUTS: 
NONE 

i 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Accounting record written. 


BEGIN 
MAP 
‘ares FAB: REF BBLOCK; ! Pointer to FAB 
ACR_BUFFER: BBLOCKCJBCS$K_MAXACCREC], !' Record buffer 
APK: REF BBLOCK, ' Pointer to packet 
g REF BBLOCK, ' Pointer to NAM block 
Ls ! Length of filename 
REGISTER 
P = 3; ! Pointer to free byte 
GLOBAL REGISTER 
ACR = ACCT_ACR_REG: REF BBLOCK; ! Pointer to record buffer 
ACR = ACR_BUFFER; 
ACM_RECORD(. TYPE, 0, CUR_TIME, .ACR); 
ACM_PACKET(ACRSK_FILENAME, 0, .ACR, APK); 
P = APKCACRST_FICENAME); 
NAM = .FABCFABSL_NAM); 
= ,NAMCNAMSB_RSLJ; 
-P)<0,8> = .L; 
= P+; 
Su 


MOV -NAMCNAMSL_RSAJ, .P; ,., P); 
PK ACREW LENGTH] =".P =" .APK; 
CRCACRSW-LENGTH) = .P = .ACR: 

WRITE ACCOUNTING FILE) ; 


1 tds v4.0 
JOBCTL.SRCJACCOUNTN 


2 
ACCOUNTNG Accounting manager 18-56 -1984 46:25 AX-11 Bliss-32 V4.0-74 P 5 
v04=000 ames Fe Soe hs rie ya ay OP Rt es ere atthe 


OOFC 00000 WwRITE_FILE_LINK RECORD: 
WORD Save Re R2 53. R4 »RSR6,R7 : 1935 | 


35 7 fe 3 9 E Soar Rov AB 4(SP) hcr 1977] 
67 000¢2000 $f 6 0004 MOVL pone oen (ACR) + 1978, 
67 07 1 4 AC FO 00011 INSV TYPE, #1, #7, (ACR) : 
04  A7 000000 9° EF 7D 00017 ova SUR TIME, 4(A : 
26 02 A? 3 001F MOVZWL 2(ATR) + 1979 
L 3! 09 3. DDL2 ACR APK : 
$6 2009 BF 3C 00026 MOVZWL #8201, (APK) : 
04 Ab : 0028 OVAB. 4(R6). P + 1980 
50 AC D 99 F MOVL FAB, R + 1981 
50 ‘ Ad D0 000 ; VL 40(RO), NAM : 
51 AO 9A 000 MOVZBL 3(NAM). L F 1982 
83 31 90 000 OVB. L, (P)+ + 198 
63 04 80 1 28 000 E MOVC3 L, @4(NAM), (P) + 1985 
02 AG 5 36 A3 0004 SUBW3  APK, P, g (px) + 1986 
02 A? 53 57 a3 00048 SUBW3 ACR. P. 2(ACR) + 1987 
FB13—sCF 00 FB 00040 CALLS #0, WRITE_ACCOUNTING_FILE + 1988 
04 00052 : 1989 


| 
| 
; Routine Size: 8&3 bytes, Routine Base: CODE + 0498 
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$ 36] 1390 ] GLOBAL ROUTINE WRITE_ACCOUNTING_RECORD(SJH,SMQ,ACM,STS): NOVALUE= 

; 96 1286 1 lee 

; 964 1993 1: 

s 969 1994 1! FUNCTIONAL DESCRIPTION: 

: ace 1995 1! This routine builds and writes an accounting record for a process, a 

3 +44 1338 ! completed batch or symbiont job, or an incomplete job. 
: 969 1998 1 | INPUT PARAMETERS: 

: 970 1999 1! NONE 

: 971 000 1! 

; 97 01 1 ! IMPLICIT INPUTS: | 
; 97 02g 1! SJH - Pointer to SJH or 0. 

3 974 003 1! SMQ - Pointer to SMQ or 0. 
s 975 004 1! ACM - Pointer to ACM o 
: are One ! } STs - (Optional) Fareed completion status. 
: 978 007 1 | OUTPUT PARAMETERS: 
; 979 008 1! NONE 

: 980 009 1! 

; «#981 2010 1 ! IMPLICIT OUTPUTS: 

: 98 2011 1! NONE 

; 98 sais 1! 
3 984 301 1 ! ROUTINE VALUE: 
; 985 014 1! NONE 
; 986 2015 1! 
; 987 2016 1 ! SIDE EFFECTS: 

; 988 017 1! Accounting record written. 

; 989 018 1! 

; 990 019 1 !-=- | 
; 991 020 1 
5 336 2021 BEGIN 

: 99 $056 MAP , 

: 994 02 SJH: REF SBLOCK, ' Pointer to SJH 
; 995 024 : REF BBLOCK; ' Pointer to SMQ 
: 996 025 LOCAL 

; 997 2026 2 : BBLOCKCSBYTEOFFSET(ACM$W_IMAGENAME)+2); ! Fake message 
; 998 $ose BUILTIN 
; 999 028 ACTUALCOUNT; 

; 1000 394 
3; 1001 030 

$ 1008 031 IF .SMQ EQL 0 

: 100 O36 THEN 

3; 1004 4 WRITE_PROCESS_RECORD(O, 0, .ACM) 

: 1005 034 ELS 

: 1006 035 IF .SMQCSMQ$V_BATCH] 

: 1007 O36 HEN 

; 1008 03 IF .ACM NEQ 0 

3; 1009 038 THEN 

; 1010 039 WRITE_PROCESS_RECORD(.SJH, .SMQ, .ACM) 

3; 1011 040 LSE 
3 1Otg 041 BEGIN 

; 101 9h CHSFILL(O, PALL OCAT LomtL Aen) 20 

> 1014 04 LACM ACHSU_ TYPE a Roc 

3; 1015 044 LACMCACMSL pic = atest Suto 

3; 1016 045 CHSMOVE (SJR S_USERNA Su 1; SERNAME], tAEAERST A USERNAME }) ; 
3; 1017 2046 CHSMOVE (SJHSS “Re EOUNTS “i CSJH$T TECCOUNTI CACM ACM$T_ACCOUNT]); 


Accounting manager 1S-sep- 
: 101 47 BITVECTORCLACMCACMSL_STS], $81 
; 1918 Og COPY TIME(CUR_TIME CAGRCAcRBG 
: 1 04 IF ACTUALCOUNT() GfRU 
; 1021 050 THEN 
: 10 g 51 4 BEGIN 
: 10 2 4 LACMCACMSL_FINALGTS] = .S 
: 19 4 4 SJHCSJHSL =FONDITION. 1] = 
+ 1025 O94 4 SJHCSJHSL~CONDITION~ § = 
: 10 $ 099 4 SHE SJHSL-CONDITION-3 = 
; 1028 989 WRITE_PROCESS_RECORD(.SJH, 
: 1029 038 D 
; 1050 
3 1031 060 BEGIN 
; 10 é 061 IF ACTUALCOUNT() GTRU 3 
3; 10 06 THEN 
+ 1034 063 4 BEGIN 
; 1035 064 4 SJH SJHSL. CONDITION_1] = .STS; 
: 1036 065 4 SJHCSJH$L_CONDITION-2) = 0; 
: 1037 066 4 SJHCSJH$SL-CONDITION~3) = 0; 
; 1989 $0e8 IF Tei esmasa _ACM_BEGTIMJ) EQL 9 
: 19¢¢ $090 COPY_TIME(CUR_TIME, smocsmasa _ACM_BEGTIM]); 
3 1966 2071 3 WRITE OPRINT RECORB(. SJH, .SMQ) 
5 104 g07¢ 2 END; 
3 1044 073 1 END; 
O1FC 00000 
58 00000000" EF 9E 00002 
5E 84 AE 9E 00009 
57 08 AC dO 0000D 
07 12 00011 
Oc AC bb 00013 
7E 7C 00016 
52 11 00018 
56 04 AC 00 S001 
50 O¢ Ar 9 O01E 
0s 4% 00098 
Oc AC OD 909 7 
3D 11 OO02A 
007c = s&F 00 6E 00 2¢ 900 ¢ 
é 00 
E BO 00034 
6 0037 
6 C 003p 
8 0044 
F 88 006A 
8 70 0004F 
C 91 00053 
F 1B 00056 
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SMCPCOSY BATEN? J = TRUE; 


waits -ACCOUNTING_RECORD, Save R2,R3,R4,R5,—~ ; 


#0, (SP), #0, #124, LACM 


324g) CM+12 
dg hes” LACM+16 
“20 (Re) CACM+28 
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5 1006 Me ! ROUTINE WRITE_PRINT_RECORD(PSJH,PSMQ): NOVALUE= : 
s 1 rk 6 1 j++ ; 
: 104 77 6145 3 
; 1050 878 1 ! FUNCTIONAL DESCRIPTION: ; 
; + 1 44 : This routine builds the print accounting record. ; 
3 1938 +P 1 | INPUT PARAMETERS: 3 
: 1054 ¢ 1! NONE 3 
3; 1055 0 1! | 3 
; 1056 084 1 ! IMPLICIT INPUTS: 3 
: Vee 085 1! PSJH - Pointer to SJH. 3 
; 1058 086 1! PSMQ - Pointer to SMQ. ; 
; 1059 087 1! 3 
; 1060 088 1 ! OUTPUT PARAMETERS: $ 
; 1061 089 1 | NONE | 
3 1096 090 1! | F 
; 106 091 1! IMPLICIT OUTPUTS: | ; 
3: 1064 34 1! NONE 3 
: 1065 2093 1! 3 
3; 1066 2094 1 ! ROUTINE VALUE: 3 
3 1067 2095 1! NONE 3 
3; 1068 2096 1! 3 
3; 1069 2097 1 ! SIDE EFFECTS: ; 
; 1070 2098 1! Print accounting record written. ; 
3; 1071 2099 1! 5 
3; 1072 2100 1 !-- ; 
3 1073 2101 1 3 
3 1074 $106 2 BEGIN 3 
: 1075 2103 2 LOCAL 3 
3; 1076 2104 2 ACM_BUFFER: BBLOCKCS$BYTEOFF SET (ACM$W_USERREQ) J, ! Fake message ; 
; 1077 2105 2 ACR_BUFFER: BBLOCKCJBC$K_MAXACCREC], ' Record buffer : 
3; 1078 2106 2 APK: REF BBLOCK; ! Pointer to packet ; 
; 1079 2107 § GLOBAL REGISTER 3 
; 1080 2108 ACM = ACCT_ACM_REG: REF BBLOCK, ! Pointer to accounting message : 
; 1081 2109 ACR = ACCT-ACR_REG: REF BBLOCK, ! Pointer to record buffer | ; 
; 1082 2110 SJH = ACCT_SJH_REG: REF BBLOCK, ! Pointer to SJH ; 
: 1083 111 SMQ = ACCT_SMQ_REG: REF BBLOCK; ! Pointer to SMQ 3 
: 1084 V6 : 
; 1085 11 3 
: 1086 114 ACM = ACM_BUFFER; : 
; 1087 2115 2 SJH = .PSJH; | : 
+ 1089 117 2 CHSFILL(O, ZALLOCATION‘ACM BUFFER), .ACM); | ; 
: 1090 118 ACMCACMSL_PIDJ = .SJHCSJH$L_P1D); ; 
: 1091 119 ACMLACM$L_UIC] = ,SJHCSJHSL_UICIJ; ; 
; 1098 120 ACMS$B j= .SJHCSJHSB PRIORITY); : 
3; 109 121 CHSMOVE (ATM$S_USERNAME , SJHCSJHST USERNAME J ACMCACMS$T_USERNAME)); : 
3 H+ 16 CHSMOVE (ACMS$S_ACCOUNT, SJHCSJH$T_ACCOUNTI, ACMCACM$T_ACCOUNTJ); : 
3: 1096 124 : 
: 1097 125 ACR = ACR_BUFFER; : 
; 1098 1 § ACM RECORB(ACRS$K_PRINT, 0, CUR_TIME, .ACR); ; 
; 1099 1 IDERT_PACKET(); ; 
+ 1100 128 2 ACM _PACKET(ACRS$K_PRINT, 0, .ACR, APK); ; 
> 1101 3109 APKTACRSL_PRINTSTS] = aSdHCS ISL CONDITION 13; ; 
> 1102 130 2 COPY_TIMETSJHC(SJH$SQ_TIMEJ, APKCACRSQ_QUETIME5; ; 
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3 1} py } ROUTINE WRITE_PROCESS_RECORD(PSJH,PSMQ,PACM): NOVALUE= ; 
3 11 128 1 44 ‘ 
3 43 1590 1! ‘ 
3; 11 151 1 ! FUNCTIONAL DESCRIPTION: : 
3 71 1 ¢ 1} his routine builds process deletion, process purge, image deletion, ‘ 
3 1} ! i : } image purge, login failure, and system initialization records. ’ 
3s 31 155 1°! INPUT PARAMETERS: ‘ 
3 11 1 § 1: NONE ‘ 
311 1 1! . 
3 33 138 1 ! IMPLICIT INPUTS: ; 
311 1 1 } PSJH - Pointer to SJH or 0. ; 
3; 11 160 1! PSMQ - Pointer to SMQ or 0. ; 
; 1 19) : } PACM - Pointer to mailbox message. ; 
3 13 188 1 ! OUTPUT PARAMETERS: : 
3; 11 $18¢ 1! NONE : 
: 1138 165 1! : 
; 1139 2166 1°! IMPLICIT OUTPUTS: : 
3 1140 2167 1! NONE ; 
3 1141 $108 1! : 
; Br | 169 1 ! ROUTINE VALUE: ’ 
3 1146 $ 70 1! NONE : 
3 11446 171 1! ; 
3 1145 $176 1 ! SIDE EFFECTS: : 
: 1146 2173 1! NONE ; 
3 1147 2174 1! 3 
3: 1148 2175 1 I< ; 
3 1149 2176 1 : 
; 1150 siz 2 BEGIN : 
3; 1151 178 2 LOCAL ; 
3; 1152 2179 2 ACR_BUFFER: BBLOCKCJBC$K_MAXACCREC], ! Record buffer : 
3; 1153 2180 2 TYPE, ' Record type : 
3; 1154 2181 2 SUBTYPE; ' Record subtype : 
3; 1155 sits 2 GLOBAL REGISTER . ; 
3; 1156 2185 2 ACM = ACCT_ACM_REG REF BBLOCK, ! Pointer to mailbox message ; 
3: 1157 2184 2 ACR = ACCT_ACR_REG: REF BBLOCK, ! Pointer to record buffer : 
; 1158 $18? 2 SJH = ACCT_SJH_REG: REF BBLOCK, ! Pointer to SJH or 0 : 
3; 1159 186 2 SMQ = ACCT_SMQ_REG: REF BBLOCK; ! Pointer to SMQ or 0 : 
: 1160 2187 : 
: 1161 188 ; 
: 1162 189 2 ACM = .PACM; : 
3; 116 190 ACR = ACR_BUFFER; ° 
3 1164 191 SJH = .PSJH; : 
3; 1165 136 § SMQ = .PSMQ; : 
3; 1166 219 IF .SJH NEQ 0 THEN ACMCACMSL_FINALSTS] = .SJHCSJHSL_CONDITION_1); : 
3 1167 194 2 SUBTYPE = 0; : 
3 1168 195 IF : 
: 1169 196 BEGIN : 
3 1170 197 CASE .ACMCACMSW_TYPE] FROM MSG$_DELPROC TO MSG$_PURIMAG OF . 
; 1171 198 SET | : 
i 11% 199 : 
: 117 200 CINRANGE, OUTRANGE): : 
> 1174 01 RETURN; : 
3 1175 sos : 
: 1176 220 '¢ : 


3 
Ue ee betty 92:98:83 Wdactu®sreiactouning.682s1 heals] 


: 7 Se } DELPROC messages generate one of the following accounting records: ’ 
: 1179 88 i SYSINIT System Initialization; the STARTUP process terminated . 
; 1180 0 : LOGFAIL Login Failure; LOGINOUT terminated with an authorization error | ‘ 
: 113) bs } PRCDEL Normal process termination ° 
: 1188 10 i Account names starting with a etnery null are special, reserved to ; 
> 1184 11 ! Digital, account names. These special account names are used to determine : 
3 sige i what kind to accounting record to generate here. ° 
> 1187 14 i The system STARTUP process starts out Life with an account name of all ; 
; 1188 15 : binary nulls. This is changed to a single binary null followed by . 
; 1189 16 ! *<start>’ when it gets set ogged in by LOGINOUT. Furthermore, the ‘ 
; 1190 17 ! STARTUP process has no terminal and a username of SYSTEM. These ° 
: 1333 characteristics are checked and, if met, cause a SYSINIT record. ° 
; 1198 20 i A login failure has an account name starting with a single binary ; 
3 1194 1 ! null followed by some descriptive keyword enclosed by <>'s. This ‘ 
3; 1195 $$ ! special account name is set up by LOGINOUT whenever it must terminate | : 
: 1196 22 ! due to an authorization failure. Account names of this special : 
; 1197 224 ! form cause a LOGFAIL record. The following special account name e 
: ite $$52 descriptive keywords are currently used: | : 
; 1300 2227 i <batch> Batch job login failure | : 
; 1201 $ss6 : <det> Detached process login failure ; 
; 1$08 $6? : <login> Interactive login failure ‘ 
3 \$o7 ssa0 <net> Network login failure ; 
; 1¢0? $$36 ; ; Otherwise, a PRCDEL record is generated. : 
° tae | 2 
; 1207 2234 3 F 
1 BE seg ppypnocs os. 
; 1210 2237 4 MACRO ; 
; isi} $5t6 ; ap VERMA Peco = XSTRING(XCHAR(O), ‘<start>')2; : 
i 1518 5540 4 NON NULLS; | : 
3 1214 2241 & SKPC(ZREF(O), %REFC(ACM$S_ACCOUNT), ACMCACM$T_ACCOUNT]; NON_NULLS); ‘ 
: 1$12 $seg 2 IF SAO ALS EQL 0 : 
: 1217 2244} CHSEQL ( ; 
3; 1218 245 5 ACM$S_ACCOUNT, ACMCACM$T ACCOUNT) 3 
3 is? $28 : ZCHARTOUNT (SYSINIT_ACCOURT), UPLIT BYTE(SYSINIT_ACCOUNT), | : 
; 1554 sta AND CHSRCHAR(ACMCACMST_TERMINAL]) EQL 0 | : 
; 122¢ 349 4 AND CHSEQL ( : 
3 122 2250 4 ACM$S_USERNAME, ACMCACMST_USERNAME), : 
: 1sse 2382 ; XCHARCOUNT(*SYSTER"), UPLIT BYTE('SYSTEM"), : 
; 1226 358 4 THEN | ; 
3% $f 54 5 GIN : 
: 1228 ¢) a | ACM_RECORD(ACRSK_SYSINIT, 0, CUR_TIME, .ACR); 3 
; 1$¢) $28 2 IDERT_PACKET(); | 3 
; 1230 5 RESOURCE PACKET (); | ; 
; 1231 38 3 WRITE ACCOUNTING_FILE(); : 
; ' 3 25 i RETURR; ° 
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IF (.NON_NULLS EQL 0 
IN 


CHSRCHAR(ACMCACMS$T_TERMINAL]) NEQ 0) 
OR HON NULLS EQL ACMSS_ACCOUNT = 1 


wv 


BEGIN 

TYPE = ACRSK_LOGFAIL; 
FALSE 

END 


BEGIN 
TYPE = ACRSK_PRCDEL; 
TRUE 


END 
END; 


| 
| 
| 
CMSG$_PURPROC): 
BEGIN 
TYPE = ACRSK_PRCPUR; | 
TRUE | 
END; 
CMSG$_DELIMAG): 
TYPE = ACRSK_IMGDEL; | 
TRUE 


MAMAN ES BEBE ELLE EE 


END; 
CMSG$ aren 
TYPE = ACRSK_IMGPUR; 
TRUE 
END; 


MEUM “OOD ONOUS WO OOBNOUS WN —O0W 


SAAAOOM 


TES 
END 
THEN 
BEGIN 
IF _CHSRCHAR(ACMCACMST_TERMINAL]) NEQ 0 | 
SUBTYPE = ACRSK_INTERACTIVE 
ELSE IF .BITVECTORCACMCACMSL_STSJ, $BITPOSITION(PCBS$V_BATCH) J 
SUBTYPE = ACRSK_BATCH 
ELSE IF .BITVECTORCACMCACMSL STS], SBITPOSITION(PCBSV_NETWRK) 3 | 
SUBTYPE = ACRSK_NETWORK 
ELSE IF -ACMCACMSL_OWNER] NEQ 0 
SUBTYPE = ACRSK_SUBPROCESS 


ELSE 
yp SUBTYPE = ACRSK, DETACHED; 
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1 .0-74 
5 JOBCTL.SRCJACCOUNTNG.B52;1 


; 1291 1 

3; 1 38 i§ 

; 129 0 ACM _RECORD(.TYPE, .SUBTYPE, CUR_TIME, .ACR); 

3: 1294 1 IDENT PACKET(); 

3 1295 3 RESOURCE_PACKET(); 

3; 3 38 

3; 129 4 

31 98 5 3 IF ONEOF_(. TYPE, BMSK_(ACRSK_IMGPUR, ACRSK_IMGDEL)) 

3 1 § THEN 

: 1300 BEGIN 

; 1301 8 LOCAL 

3 1 08 9 APK REF BBLOCK ! Pointer to packet 
; 150 0 Q: REF VECTORE, BYTE); ! Pointer to image name string 
3 3 ; 1 REGISTER 

; 1305 ¢ Pe 3; ! Pointer to free byte 
136 334 

3; 1308 35 ACM_PACKET(ACRSK_IMAGENAME, 0, .ACR, APK); 

> 1309 336 Q =".ACM + .A MCACMSW._IMAGENAA 3; 

3 1310 337 MovC3(ZREF(;Qf0) + 1)> .Q, APKCACRST_IMAGENAME]; ,,, P); 

> 1311 338 APKCACRSW_LENGTH] = .P = .APK; 

3 7 \§ 2339 ACRCLACRS$W_LENGTH) = .P = .ACR; 

s 351 340 END; 

3; 1314 341 

3; 1315 306 

; 1316 34 WRITE_ACCOUNTING_FILE(); 

3; 1317 2344 1 END; 


3E 74 72 61 74 7 
40 45 54 5 


Aw 
VIG 


eASCII <O>\<start>\ 
ASCII \SYSTEM\ 


OFFC 00000 WRITE_PROCESS_RECORD: 
- WORD 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
SA FCDF CF 9E 00002 MOVAB IDENT PACKET, R10 
5E FCOO CE 9E 00007 MOVAB -1024TSP), SP 
56 0c AC 00 MOVL PACM, ACM 
57 6E 00 MOVAB ACR_BUFFER, ACR 
59 04 AC 00 MOVL PSJA, SJH 
58 08 Ac 00 MOVL § PSMQ; SMQ 
59 00 TSTL  $JH 
06 00 BEQL ~=sd1$ 
4C A 0opc c9 00 MOVL  220(SJH), 76(ACM) 
4 0 CLRL = SUBTY 
66 00 CASEW (ACM), #3, #10 
0017 00 WORD 3$-2 
0101 00 0$-2$,- 
0071 00 0$-2$, 
0$-2$. 
0$-2$, 
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H 3 | 
ae Spe eeenia ements 1erSep-1986 12:96:83 ESoactussReSAcCOUNiNG 682; 1 Paes 


11$-28,- ; | : 
4 00041 er oS ecstigs : 2201, 
1c A 08 a5 aBég 3$: SKPC sO, 8, 28 (ACM) : ae : 
D 0 4 MOVL ROR : | : 
D4 0004A CLRL + 2242 | : 
a D8 004¢ TSTL | NON_NULLS : : 
04 12 0004 BNEQ 4$ : | ; 
1 05 BRB 5$ : ‘ 
98 AF 1C A : <9 0054 4$: CPCS #8, 28(ACM), P.AAC ; 2245 : 
34 6 9 bos¢ 5$: TSTB 2 (ACM) : 2248 | : 
24 12 0005F BNEQ : ; 
06 20 10 A6 - O¢ 20 00061 CMPCS #12, 16(ACM), #32, #6, P.AAD ; 2250 
1A 12 90069 BNEQ 6$ : 
67 000C200A BF DO 0006 MOVL #794634, (ACR) + 2255 
04 A7 00000000" EF 7D 0007 MOVG  CUR_TIME, 4(ACR) : 
6A 00 FB OO07A CALLS #0, IDENT_PACKET + 2256 
011A. sCA 0008 FB 90070 CALLS #9 RESOURCE_PACKET : 3257 
05 ag E9 booRs 6$ BLBC =_«aRS,_- 7S + 2261 
34 Ad 95 00088 TSTB  52¢ACM) + 2263 
03 12 00088 BNEQ 4 : 
07 8 D1 00080 7$: CMPL  NON_NULLS, #7 : 2266 | 
05 if 00090 BNEO 9 : 
52 07 D 00092 8$: MOVL #7, TYPE : 2267 | 
D 11 0009 BRB 18$ : 
52 01 DO 00097 9s: MOVL #1, TYPE t 2272) 
OD 11 0009A BRB «138 : 
52 02 00 0009C 10$ MOVL " TYPE : 2279 
08 11 0009F BRB 13§ : 
52 03 DO 000A 11$ MOVL #3, TYPE : 2285 
03 11 BOA, BRB 3§ ; 
52 04 p09 000A6 12s MOVL #4, TYP > 2291 
34 Ab 9 SO0A9 13$ TSTB  52¢ACM) : 2299 
05 13 OOOAC BEQL 14$ ; 
54 01 00 O00AE MOVL #1, SUBTYPE + 2301 
21 11 00081 BRB 18§ ; 
05 2D 6 06 £1 00083 14$: BBC #6, 45(ACM), 15$ + 2303 
54 04 DO 00088 MOVL #4. SUBTYPE : 2305 | 
05 2E A M4 ey ith 15$ BBE iss 46(ACM), 16% : ow! 
54 82 DO aac? MOVL #5. SUBTYPE. ; 305, 
0d 11 000C BRB : | 
30 Ab 03 00C7 16$ TSTL 48(ACM) : 2311 
5 13 OOOCA BEQL : 
54 pd 000CC MOVL #2, SUBTYPE > 2313. 
11 OOOCF BRB 18$ : 
54 D 9001 17$ MOVL @ SUBTYP : 2316 
67 000C2000 8F D D4 188 MOVL #794624 (ACR) : 3 20 | 
67 07 01 2 F 0B INSV YPE, #1, #7, ; 
01 AZ 04 0 4 FO 000E INSV SUBTYPE, #0, #4, 1(ACR) ; | 
04 A? 00000000' EF 7D O00E6 mova CUR_TIME, 4(ACRS ; 
6A 0 FB OOOEE CALLS #0, IDENT_PACKET : 3321 
O11A. CA FB OOOF1 CALLS #0, RESOURCE_PACKET : 2 


3 
Accounting manage esbetoye FREE SEL Ueto 


vou-000" 


50 18000000 8F 53 78 0F6 ASHL TYPE, #402653184, RO 
} 0 FE BGEO 
59 02 A7 ¢ 010 MOVZWL 2(ACR), APK 
9 57 104 ADDL2 ACR, APK 
$9 2007 BF 3C 00107 MOVZWL #8199, (APK) 
1 7A =A6 «36 0010C MOVZWL 122(ACM), Q 
51 56 ¢0 0110 ‘ 
50 61 9A 0011 MOVZBL (Q), RO 
50 D 116 NCL R 
04 a9 61 50 28 0011 MOVC3 RO, (Q), 4(APK) 
02 a9 53 59 A3 00110 SUBW3 = APK, P. (APK) 
02 A? 53 57 A 00122 SUBW ACR ‘ (ACR) 
FCFO. CA 00 FB 00127 198: CALLS Ro RITE _ACCOUNTING_F ILE 
04 0012C 20$: RET 


; Routine Size: 301 bytes, Routine Base: CODE + 0628 
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GLOBAL ROUTINE PROCESS_ACCOUNTING: NOVALUE= 


5 ela 


WONAVNE WI OOONOuW 


Ss routine processes the message types: 
MSG$_PURPROC process p 
MSG$_DELIMAG image deletion 
MSG$_PURIMAG image purge 

by writing an accounting record. 


INPUT PARAMETERS: 
NONE 


urge 


PUPP 


IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


MEUM "OO ONOULSWN OO 


OUTPUT PARAMETERS: 
NONE 


ve 
Www 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


1319 
60 
61 
6 
6 
364 
365 
3 369 
$ 70 
34 
34 
34 
r4 


oo 
oo 


MBX 
UNLOCK _QUEUE_FILE(); 
END 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
BEGIN 
LOCAL 

SJH_N, ' Record number of SJH 

ELSE 


ee ee a ee ee ee me ee ed ed ed ed od = od = 
~~ 


8 
9 
0 
4 
5 71 SIDE EFFECTS: 
6 336 Accounting record written. 
7 7 
8 374 7 
349 75 
50 376 
51 a4 
24 78 x 
35 379 SMQ_N; ! Record number of SMQ 
See 380 
55 381 
56 $86 IF 
57 38 BEGIN 
325 tee M eBITVECTORCRBXCACASL _STSJ. SBITPOSITION(PCB$V_BATCH)) 
0 56 FIND PROCESS DATA( 
1 8 PDE_K_BATCH, .MBXCACMSL_PIDJ, FALSE; 
¢ 38 . SMQ"N, SJH_N) 
9 ELSE 
90 FALSE 
5 91 ND 
38 
9 GIN 
94 LOCK QUEUE _FILE() 
95 WRITE PROCESS RECORD( 
9 READ_RECORD(.SJH_N), 
9 READ_RECORD(.SMQ_N), 
4 
4 


£3 


a — a 


3 ; 
ASEOguNS Accounting manager VEstect9ee #3828 YMMSLT OUEEGHGMiCeTHbenn | 


3 137 40 WRITE_PROCESS_RECORD(O, 0, .MBX); 
1338 10 f END; ~ x =~ : 


| 
OE0C «ENTRY PROCESS_ACCOUNTING, Save R2,R3,R9,R10,R11 ; 2345 
900000006 a oF B09 MOVAB READ_RETORD, R3 : 
averee 55 i i HOVE’ MBX, . : 2386 | 
35 2D = AO 06 €1 0013 BBC #6, 45(RO), 18 : 
E D4 1 CLAL - 3 2386 
28 AO DD OOOIA PUSHL  40(RO) : 2387 
01 DD 00010 PUSHL #1 3 2386 
000000006: EF 93 FB OOO1F CALLS #3, FIND_PROCESS_DATA : 
24 0 £9 00026 BLBC ‘ 3 
00000000G_ EF 09 Fi 60069 CALLS #0, LOCK_QUEUE_FILE 3 2394 
62 DD 00030 PUSHL MBX 3 2398 
5A DD 00032 PUSHL SMQ_N 3 2397 
63 01 FB 00034 CALLS #1, READ_RECORD : 
50 DD 00037 PUSHL RO ; 
5B OD 90039 PUSHL SJH_N 3 2396 
63 01 FB 00038 CALLS #1, READ_RECORD : 
50 DD 0003E PUSHL R 3 
FEBE CF 03 FB 00040 CALLS #3, WRITE_PROCESS_RECORD : 
00000000G_ EF 00 FB 00045 CALLS #0, UNLOCR_QUEUE_FILE : 2399 
04 0004C RET 3 2382 
62 DD 0004D 1$: PUSHL MBX : 2402 
7E 7C OO04F CLRQ -(SP) 3 
FE7D CF 03 FB 00051 CALLS #3, WRITE_PROCESS_RECORD ; 
04 00056 RET 3 2403 


; Routine Size: 87 bytes, Routine Base: CODE + 0758 
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COMMON 
CODE 


File 
-$255$DUA28: 


Lines/CPU Min: 
ced Ak ta 


cee A 
Compi tien C 


Accounting manager 


sos 0 ELUDOM 


PSECT SUMAARY 
Bytes 


b-sepmt9ms 25:46:25 


Attributes 


5024 NOVEC, WRT, a »NOEXE ,NOSHR, 


1967 NOVEC,NOWRT, 


Library Statistics 


Symbols 
Total Loaded 
CSYSLIBILIB.L32;1 18619 220 


COMMAND QUALIFIERS 


1928 code + 5063 data bytes 


ie? 
in: 48931 
392 pages 


omp' ete 


e 


EXE ,NOSHR, 


Percent 
1 


LCL, REL, 
LCL, REL, 


Pages 
Mapped 


1000 


AX-11 BLi iegs -32 V 
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-EXTRN LIBSSIGNAL 


OVR,NOPIC, ght 
CON,NOPIC,ALIGN(2) 


Processing 
e 


00:01.5 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:ACCOUNTNG/OBJ=OBJ$:ACCOUNTNG MSRC$:ACCOUNTNG/UPDATE=(ENHS$: ACCOUNTNG) 
| 
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